! Var_DRahmen_Makro
!Written BY  STEFAN FELBER ,VIENNA (TEL: 43-58-473)
!                     date: 91.05.17
!                     reason : GDL version 4.0 & Simplification

! a = width
! b = height
! c = thickness
! d = not used
! e = visibility mask
! f = left frame
! g = right  frame
! h = top  frame
! i = bottom  frame

if (a<= f+g) or (b<=h+i) then 99
PRISM_ 10,c,    ! frame
0,0,e,
a,0,e,
a,b,e,
0,b,e,
0,0,-1,
0+f,0+i,0,        ! hole in frame
a-g,0+i,0,
a-g,b-h,0,
0+f,b-h,0,
0+f,0+i,-1
end

99:
PRISM_ 5,c,        ! frame without hole
0,0,e,
a,0,e,
a,b,e,
0,b,e,
0,0,-1

END
